<% dim emailAddress dim listTypeValue dim subscribeTo '--------------------------------------------------- ' cstr converts to a string '--------------------------------------------------- emailAddress = cstr(request.form("email")) listTypeValue = cstr(request.form("listtype")) '--------------------------------------------------------------------- ' test for aol email address '--------------------------------------------------------------------- if (instr(ucase(emailAddress),"@AOL.COM") > 0) then subscribeTo = "subscribe rokenbok_updates_aol" '--------------------------------------------------------------------- ' not aol, test for html or plain list '--------------------------------------------------------------------- else if (ucase(listTypeValue) = "HTML") then subscribeTo = "subscribe rokenbok_updates_html" else subscribeTo = "subscribe rokenbok_updates" end if end if '--------------------------------------------------------------------- ' send email to listcert (dups commands as "send email to lyris") '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="listcert@rokenbok.com" cdoMail.from=emailAddress cdoMail.subject=subscribeTo cdoMail.Body="mailing list " cdoMail.Send set cdoMail=nothing '--------------------------------------------------------------------- ' send email to lyris '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="lyris@lyris.rokenbok.com" cdoMail.from=emailAddress cdoMail.subject=subscribeTo cdoMail.Body=" " cdoMail.Send set cdoMail=nothing '--------------------------------------------------------------------- ' send confirmation to rokenbok '--------------------------------------------------------------------- set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.to="maillist@rokenbok.com" cdoMail.from="lyris" cdoMail.subject="subscribe " + emailAddress dim bodyText bodyText = bodyText + "Email address: " + emailAddress + vbcrlf bodyText = bodyText + "List type: " + listTypeValue + vbcrlf bodyText = bodyText + "List subscribed to: " + subscribeTo + vbcrlf cdoMail.Body = bodyText cdoMail.Send set cdoMail = nothing %>

	Thank you for joining our mailing list, your information has been submitted!

Home | What is Rokenbok? | Toy Catalog | Construction Zone | About Us | Learning Benefits | Support | Contact Us Dealer Locator | Join Mailing List | Warranty Registration | Privacy Statement | Terms of Use ©2002 by Rokenbok Toy Company. All Rights Reserved.